home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Shell Folders 4.xpl < prev    next >
Text File  |  2001-02-10  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "DATA 1"="Folders (*.*)|*.*"
  4. "COUNT"="3"
  5. "UIPATH"="System\File System\Folders: System"
  6. "NAME"="Windows Folders #3"
  7. "OSVERSION"="01011"
  8. "VERSION"="2.00"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="PrintHood"
  11. "TEXT 2"="Recent Files"
  12. "TEXT 3"="Start Menu"
  13. "DESCRIPTION 1"="Changing these items will allow you to determine where some of Windows' files are stored."
  14. "DESCRIPTION 2"="This value may be set to any drive on your system, however, it is recommended that you use only hard disk drives rather than removable ones such as Zip, Jaz, floppy, CD and so on."
  15. "DESCRIPTION 3"="Only use a network drive for this option if the hosting [server of the network drive] is always on."
  16. "DESCRIPTION 4"=" "
  17. "AUTHOR"="Xteq Systems (CptSiskoX)"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Download Windows 2000 tips from AXCEL216 http://user.aol.com/axcel216/"
  21. "COMMENT 2"="And visit my site (CptSiskoX) at http://members.fortuncity.com/computingx/ "
  22. "COMMENT 3"="Check out the LockerGnome newsgroups news://news.lockergnome.com/ for more cool tips."
  23.  
  24.  
  25. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  26. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  27.  
  28. Sub Plugin_Initialize 
  29.  s=RegReadValue(sp1 & "PrintHood")
  30.  SetUIElement 1,s
  31.  
  32.  s=RegReadValue(sP1 & "Recent")
  33.  SetUIElement 2,s
  34.  
  35.  s=RegReadValue(sP1 & "Start Menu")
  36.  SetUIElement 3,s
  37.  
  38.  
  39. End Sub
  40.  
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  s=GetUIElement(1)
  48.  Call RegWriteValue(sP1 & "PrintHood",s,1)
  49.  Call RegWriteValue(sP2 & "PrintHood",s,1)
  50.  
  51.  s=GetUIElement(2)
  52.  Call RegWriteValue(sP1 & "Recent",s,1)
  53.  Call RegWriteValue(sP2 & "Recent",s,1)
  54.  
  55.  s=GetUIElement(3)
  56.  Call RegWriteValue(sP1 & "Start Menu",s,1)
  57.  Call RegWriteValue(sP2 & "Start Menu",s,1)
  58.  
  59.  
  60.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  61.  Call Logoff() 'Required because of ActiveDestop and other stuff
  62. End Sub
  63.  
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.  
  68.  
  69.  
  70.